home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / tri-2.bas < prev    next >
BASIC Source File  |  1994-06-23  |  702b  |  24 lines

  1. 10 PRINT "GIVEN THREE SIDES OF A TRIANGLE"
  2. 20 PRINT "FIND THE THREE ANGLES AND THE AREA"
  3. 30 INPUT "ENTER SIDE (S1)"; S1
  4. 40 INPUT "ENTER SIDE (S2)"; S2
  5. 50 INPUT "ENTER SIDE (S3)"; S3
  6. 60 P=(S1+S2+S3)/2
  7. 70 B=(((P*(P-S2))/(S1*S3)))^.5
  8. 80 Z=57.296
  9. 90 A3=2*Z*(-ATN(B/SQR(-B*B+1))+1.5708)
  10. 100 C=(((P*(P-S1))/(S2*S3)))^.5
  11. 110 A2=2*Z*(-ATN(C/SQR(-C*C+1))+1.5708)
  12. 115 A1=180-A2-A3
  13. 120 D=.5*(S1*S3*SIN(A3/Z))
  14. 130 PRINT
  15. 140 PRINT "            ***ANSWERS***
  16. 150 PRINT
  17. 160 PRINT A1 "     ANGLE (A1)"
  18. 170 PRINT A2 "     ANGLE (A2)"
  19. 180 PRINT A3 "     ANGLE (A3)"
  20. 190 PRINT S1 "     SIDE  (S1)"
  21. 200 PRINT S2 "     SIDE  (S2)"
  22. 210 PRINT S3 "     SIDE  (S3)"
  23. 220 PRINT D  "     AREA OF TRIANGLE"
  24.